﻿' Placeholder module to replace malformed top-level function and fix build errors
Namespace E3ModelFix
    Public Module E3_モデルデ作成_Placeholder
        ' This file intentionally left blank. Real implementations are in other files.
    End Module
End Namespace

            ' Q550_E数2 の作成/更新
            ' modelNo の値を SQL に埋め込んでリテラル列として出力する（Access の VIEW では VB 変数は使えないため）
            Dim sqlE2 As String = $"SELECT {modelNo} AS モデル連番, GPLEランク, Count(出荷先) AS 出荷先数 FROM Q550_E数1 GROUP BY GPLEランク;"
            SaveQuery(conn, "Q550_E数2", sqlE2)